home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Gameport.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
538b
|
37 lines
Unit Gameport;
Interface
Uses Exec;
Type
tGamePortTrigger = Record
gpt_Keys: Integer;
gpt_Timeout: Integer;
gpt_XDelta: Integer;
gpt_YDelta: Integer;
End;
Const
GPCT_NOCONTROLLER = $0;
GPTB_DOWNKEYS = $0;
GPD_ASKCTYPE = $A;
GPTF_DOWNKEYS = $1;
GPCT_ABSJOYSTICK = $3;
GPD_SETCTYPE = $B;
GPCT_ALLOCATED = $FFFFFFFF;
GPCT_RELJOYSTICK = $2;
GPD_ASKTRIGGER = $C;
GPDERR_SETCTYPE = $1;
GPTB_UPKEYS = $1;
GPD_SETTRIGGER = $D;
GPTF_UPKEYS = $2;
GPD_READEVENT = $9;
GPCT_MOUSE = $1;
End.